home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP HTTP Images.xpl < prev    next >
Text File  |  2002-10-29  |  2KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Common"
  5. "NAME"="Linked Image Loading"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable loading of linked images"
  9. "DESCRIPTION 1"="All Office XP programs are able to include links to images that are loaded directly from the internet."
  10. "DESCRIPTION 2"="This means, the image is not stored in the document itself, but simply linked using an URL and loaded directly from the internet when the document is displayed."
  11. "DESCRIPTION 3"="However, this feature can also be used for bad things, so called "Web Bugs"."
  12. "DESCRIPTION 4"="To create a web bug, somebody sends you an document with a link to an invisible (1 pixel in size) image. When you open the document, Office XP loads the image from the internet so the other person knows that you have viewed the document."
  13. "DESCRIPTION 5"="To disable any loading of linked images, deactivate this option. This will make any web bug useless."
  14. "DESCRIPTION 6"="IMPORTANT: This setting required Office XP SP2 to work!"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  18. "COMMENT 1"="Visit http://www.xteq.com/"
  19.  
  20.  
  21.  
  22. 'Declaration of some constants
  23. sV1="HKCU\Software\Microsoft\Office\10.0\Common\BlockHTTPImages" 'DW
  24.  
  25. sPCheck="HKCU\Software\Microsoft\Office\10.0\Word\"
  26. Sub Plugin_Initialize 
  27. if RegPathExists(sPCheck) then
  28.    i=RegReadValue(sV1)
  29.    if isempty(i) or i=0 then SetUIElement 1,true
  30. else
  31.    Disable()
  32. end if
  33. END SUB
  34.  
  35. 'Called when the Plugin should validate the Data the user has entered
  36. SUB Plugin_CheckData(ElementIndex)
  37. END SUB
  38.  
  39. 'Called when the Plugin should apply the changes
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  44.  else
  45.     Call RegWriteValue(sV1,1,2)
  46.  end if
  47.  
  48.  
  49.  
  50. END SUB
  51.  
  52. 'Called when the Plugin is about to be removed from memory
  53. SUB Plugin_Terminate
  54. END SUB
  55.